#!/usr/bin/perl

require "output.pl";

print "Content-type:text/html\n\n";

use DBI;

$buffer=$ENV{'QUERY_STRING'};

$buffer1=$buffer;

if ($buffer1 =~ /^0/) {
    $buffer1 = "20$buffer1";
} elsif ($buffer1 =~/^1/) {
    $buffer1 = "20$buffer1";
} else {
    $buffer1 = "19$buffer1";
}

my ($dsn) = "dbi:mysql:reports:localhost";
##my ($user_name) = "trcoordinator";
##my ($password) = "trnumber";
my ($user_name) = "dholt";
my ($password) = "accRed06";
 
$dbh = DBI->connect($dsn, $user_name, $password) or die "cannot open db";

if ($buffer eq "") {
    $sql = qq [SELECT trnum,trtitle,trauth,trmonth,tryear,trpage, trabs
	       FROM tr ];
} else {

    $sql = qq [SELECT trnum,trtitle,trauth,trmonth,tryear,trpage, trabs
	       FROM tr
	       WHERE tryear='$buffer' or tryear='$buffer1' ORDER BY trnum];
}

$sth=$dbh->prepare($sql);
unless ($sth->execute) {
	die "Failed execution of sql statement: " . $sth->errstr;
}

&printall($title);

$sth->finish;
$dbh->disconnect;


exit(0);